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Computer Oriented Programs on Multi-Dimensional 

Numerical Integration 

D.A.GISMALLA & Dr. F. M. DAWALBAIT 


Abstract — Computer Oriented Programs are SOFTWARE 
BULIT-IN FUNCTIONS OR WRITTEN SOFTWARE in a 
different COMPUTER LANGUAGES. In the past only 
NUMERICAL SOFTWARE ROUTINES available are NAG 
ROUTINES written in FORTRAN and ALGOLW which both 
are POCESSING LANGUAGES and then later C++ languages 
.The FORTRAN LANGUAGE can compute to a very high 
accuracy but require and need MAIN-FRAMES 
COMPUTERS . Instead people now a days are inclined to use 
PERSONEL COMPUTERS for the money cost is few in such 
away any person can get one . 

In this paper We FIRST list some of the 
FUNCTIONS BULIT IN MATHEMATICA OR MATLAB 
programming languages that deals and compute numerically or 
( analytically in closed forms for 1-dimentional ) and higher 
dimensional integrals. 

SECOND, We will design a MATLAB SOTWARE 
PROGRAMS for 1-dimentional problems or higher 
multi-dimensional. For 1-dimentional Integrals METHODS We 
use are Trapezoidal, Simpson’s and Gaussian Quadrature 
Rules. For 2-dimentional Integrals We apply Radon’s approach 
and Gismlla’s approach with regions are the SQUARE 
REGION and RECTANGLE REGION WITH WEGIHT 
FUNCTION THE SQUARE ROOT of X, respectively .THIRD, 
for 3-dimentional or higher Integrals We apply Levin’s 
Transform with our expectation to evaluate Integrals to a high 
accuracy ((as We have dealt with before in[ 4] but using 
FORTRAN languages on main frame COMPUTERS )). 

Further, the reader can be acquainted with some symbolic 
languages and distinguishes them from the usual processing 
languages. Furthermore, the reader will know that LEVIN’S 
TRANSFORM can be used as one of the best method to sum a 
large class of series to a high accuracy. 

Index Terms — Symbolic Languages and Built-in Functions 
.Simpson’s, Trapezoidal, Gaussian, Radon’s, Gismalla’s and 
Levin’s Rules. Full Machines Accuracy and Main Frame 
Computers. 


I. BACKGROUND AND REVIEWS 

The problem of numerical integration is one of the oldest 
problem in mathematics that gives a beautiful and an insight 
light to a wide range of theoretical and computational 
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Methods in Mathematics and Numerical Analysis. This can be 
seen when literature retrieval for theory and algorithms is 
seek, especially for one-dimensional Quadrature Formulae 
such as Lobbotta, Newton’s, Trapezoidal, Simpson and 
Gaussian Quadrature Rules or for two-dimensional Cubature 
Rules as in the references [6] ,[8] ,[12],[17],[18], [19] and 
[ 20 ]. 

The theory of Cubature is burst out when the Product 
Rules generated from the one-dimensional Rules such as 
Simpson Rules having the disadvantages of accumulating 
rounding errors and do not attain the required minimum 
number of points for functions evaluations in the formula. 
Stroud [17] has developing many cubature formulae on 
symmetric regions such as square and the cubic. He creates 
by theoretical approaches to formulate a matrix system of 
equations and then solve this system by choosing and 
selecting a special paten of points to the required cubature 
formula. The problem of selecting such paten of points in 
such away to solve the matrix system is difficult unless a 
particular suitable paten is chosen . This can be seen as a 
disadvantage. However, if these suitable paten of points can 
be chosen in advance in such away to solve the system of 
equations , then many cubature formulas can be obtained. 

Cohen & Gismalla [6] has selected a certain paten 
of points on the square and the cubic to construct some types 
of cubature formulas known as symmetric cubature formulas 
as in [6 ] . Selecting in advance the suitable paten of points can 
construct good formulas , not for symmetric regions only but 
on any region with a weight function for that region as in 
Gismalla[7]. 

The Germanium ( or the Russian ) Radon [14] 
investigates and develop a large information theories on 
polynomials , orthogonal polynomials and zeros polynomials 
to establish his fifth degree cubature formula on the square 
region. If someone reads the translation for this work, he will 
certainly acknowledge the valuable efforts done to connect 
these theories in such away to establish Radon Rule. One of 
the neatness and beauty of Radon approach is that Gismalla [ 
7] has summarized it in steps as an algorithm in such away to 
construct cubature formulas not on a symmetric region as a 
square but on any region with its weight function . This can 
be seen in Gismalla[7 ] for deriving the same fifth degree 
formula on rectangle region 

£> = [0 < x < 1 and — 1 < x < 1} with weight function 

w 

The theories of polynomials as investigated in Radon 
Rule as algorithms to construct cubature formulas was carried 
out further in Moller [23] and Shimds [24 ]. Moller seeks 
formulas that attain the minimum odd number of points while 
Shimd’s work[24 ] to attain the minimum even number of 
points . Gismalla[8] apply Schimd’s approach to construct a 
forth degree formula and two sixth degree formula on the 
rectangle region ^ = [0 <x<lc?ii 2 — l<;c<l} with 
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weight function \x . Both these two approaches can be 
computerized to generate many cubature formulas but the cost 
of complexity is too great and high . Even if the complexity is 
revealed one can expect to obtain formulas with some points 
outside the region in consideration. 

Nevertheless, Stroud [16] has written a great deal of 
MATLAB SOFTWARE for many regions such as the circle, 
square, cubic and triangle. The useful of formulas on a 
triangle can be dealt with for problems on finite element 
methods especially when it is symmetric. NAG 
ROUTINES in FORTRAN languages are available but with 
the restriction that most of them on main frames computers. 
QUADPACK for numerical Integration can found on 
FORTRAN or C++ languages or elsewhere. 


II. THE BULIT-IN MATHEMATICA INTEGRATE 
FUNCTIONS 

Here , We discuss some of the built_in symbolic Mathematica 
functions for integration . These functions are Integrate , 
NIntegrate and Manipulate with Integrate. 


A. Integrate 

The Integrate function is used to evaluate the 
indefinite integral I ~4~ dx 

in Mathematica Mode environment . Typing just the 
command Integrate in the following line below and then press 
the two keys SHIFT+ENTER simultaneously to get the result 
for required indefinite integral as in Example 2.1. The reader 
must know a little knowledge about how to execute a 
Mathematica function command . Once the command 
Integrate[l/(x A 3+l),x] is typed and the two keys 
SHIFT+ENTER are pressed simultaneously , the 
Mathematica will execute it as input automatically with 
in[l]:= to indicate that this the first input as 
in[l]:= Integrate[l/(x A 3+l),x] 

The output result will be preceded automatically with out[l] := 
to indicate that this the first output result as an answer 

out[l]:= — + - Log| 1 +x ]- - Log| 1 -x+x ] 

Similarly , any further input or output will be preceded by its 
number in sequence automatically for second input or output 

in[2]:= or out[2]:= etc. 

Example 2.1 

The following Integrate function gives the indefinite 
integrals 

Integrate [/*, x] , gives the indefinite integral j f d x 

In[l]:= Integrate[l/(x A 3+l),x] 

ArcTia p -1 ;^ 1 ] t i 

Out[l]= ^ h-Log[l+x]--Log[l- X+X 2 ] 


In[4]:= Integrate [Log [l-x A 2],x] 

Out[4]= -2x - Log[-l+x] + Log[l+x] + x Log[l-x 2 ] 


The following Integrate function gives the definite 
integral 

\ntegY2Lte\f,{xjc miny x max \\ ,the definite 
integral f(x) dx 

Here are Integrate functions for the definite 
integral J a f 0*0 dx . 

In[5] := Integrate[Sin[x] A 2, { x,a,b } ] 

Out[5]= a + b + Cos[a]Sin[a] - Cos[b]Sin[b]) 


In[6] : = Integrate [Exp [-x A 2] , { x,0, Infinity } ] 

"• TT 

Out[6]= — 


In[7]:= Integrate[l/(x A 3+l),{ X ,0,l }] 
Out[7]= ^(2V3 nr +Log|64|) 


In[8]:= Sq To j [x] Exp [ 

Out[8]= — ^VTr(EulerGamma+Log[4]) 

Mathematica cannot give you a formula for this definite 

P I y 

integral J 0 x dx but instead We can get a numerical 
result 

In[9]:= Integrate [x A x],{x, 0,1 }] 

Out[9]= J 0 L x 1 dx 


Here below N and % indicates the numerical for the current 
input % Integrate Command 
In[10]:= N[%] 

Out[10]= 0.783431 


Here is the Integrate for the multiple integral 

ry ~((y)dy .... 




Integrate^, 


mimy max\ 


For Multiple integral with x integration outermost: 
In[ll]:= Integrate[Sin[x y],{x,0,l },{y,0,x}] 
Out[ll]= j (EulerGamma-CosIntegral[l]) 


In[12]:= Sin[xy]dy dx 
Out[12]= ~ (EulerGamma-CosIntegral[l]) 

Integrals over Regions 

This does an integral over the interior of the unit circle. 
In[ 13] : = Integrate [If [x A 2+y A 2< 1 , 1 ,0] , { x, - 1 , 1 } , { y ,- 1 , 1 } ] 
Out[13]= n 
Here is an equivalent form. 


In[2]:= Integrate [x A n,x] 

r TL-l 

Out[2]= 

u+i 


In[14]:= Integrate [Boole [x A 2+y A 2< 1 ], { x,- 1 , 1 } , { y,- 1 , 1 }] 

Out[14]= TT 


In[3]:= 
Out[3]= - 


Integrate[l/( X A 4-a A 4),x] 

JrfTan[^i L ag[ji -K Log [a+x; 

+ 4a 3 ' 4a 3 


Even though an integral may be straightforward over a simple 
rectangular region, it can be significantly more complicated 
even over a circular region. 

This gives a Bessel function. 
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In[15]:= Integrate [Exp [x] 
Boole[x A 2+y A 2<l],{x,-l,l },{y,-l,l }] 
Out[15]= 2 n Bessell[l,l] 


B. NIntegrate 


gives a numerical approximation to the integral 

-tr ■*»>*. 


NIntegrate\f,{xpc min pc max },{y ,y mimy max} v • • ] 

gives a numerical approximation to the multiple integral 


This implies that the built-in NIntegrate Mathematica 
function evaluates integrals in one or multi-dimensional 
integrals numerically to a good limit of accuracy as can be 
shown here in Example 2.2 

Example2.2 Compute a numerical integral: 

In[ 1 6] := NIntegrate [ S in [ S in [x] ] , { x,0,2 } ] 
Out[16]= 1.24706 


This finds a numerical approximation to the integral 

So e '* 3 


In[ 1 7] : = NIntegrate [Exp [-x A 3 ] , { x,0, Infinity } ] 

Out[17]= 0.89298 


Compute a multi dimensional integral (with singularity at the 
origin): 

In[18]:= 

NIntegrate[^==== { x 1 ,0, 1 } , { x2,0, 1 } , { x3,0, 1 } , { x4.0, 1 

■J 3 + 2 + 2 + lfl 

}] 

Out[18]= 1.2391 


Here is the numerical value of the double integral 
S-iS-xi * 2 dx 


In[ 1 9] := NIntegrate [x A 2+y A 2 , { x, - 1,1 } , { y , - 1,1 } ] 
Out[19]= 2.66667 


Out[20] 



In[2 1 ] := Manipulate[Integrate[Sin[x( 1 +a 
x)],{x,0,6}],{a,0,2}] 


Out[21]= 



In[2 2]:= Manipulate[Integrate[l/(x A n-l),x],{n,2,10,l }] 
Out [22]= 


n 


D 


o 


ArcTanLkU 

□ 

2 


1 


1 


□ - LogLnl dxUd - LoguL Dx. 
4 4 


C. Manipulate with Integrate 

The Command Maipulate means that parameters can be 
manipulate continuously or in discrete steps. Also , it is 
possible to manipulate two parameters . The manipulation can 
be done for many results such as expansion or plotting a 
function. Here , We give an Example 2.3 for Manipulate with 
Plot and Integrate 

Example 2.3 (( See In[20] -In[22])) 


In [20]:= Manipulate[Plot[Sin[x (1+ax)], 
{x, 0,6}], {a, 0,2}] 


III. THE BULIT-IN MATLAB QUAD FUNCTIONS 

Here We shall describe the four Built-in Matlab QUAD 
functions to evaluate numerically an integrand over 
One-dimensional accurately to about six decimal places. 
These functions are QUAD, QUADL, DBLQUAD and 
TRIPLEQUAD as can be seen in sections 3.1, 3.2, 3.3 and 
3.4, respectively. 

A. QUAD 

QUAD Numerically evaluate integral, adaptive Simpson 
quadrature 

Q = QUAD(FUN,A,B ) 

Q = QUAD(FUN,A,B) tries to approximate the integral of 
function FUN from A to B to within an error of l.e-6 using 
recursive adaptive Simpson quadrature. The function Y = 
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FUN(X) should accept a vector argument X and return a 
vector result Y, the integrand evaluated at each element of X. 

Q = QUAD(FUN,A,B,TOL) uses an absolute error 
tolerance of TOL instead of the default, which is l.e-6. 
Larger values of TOL result in fewer function evaluations and 
faster computation, but less accurate results. The QUAD 
function in MATLAB 5.3 used a less reliable algorithm and a 
default tolerance of l.e-3. 

Use array operators.*, ./ and . A in in the definition of 
FUN so that it can be evaluated with a vector argument. 
Example 2.4 Approximate the integral J : _. v _ = &x by 

using quad function in 

Matlab. Observe that the FUN in Q=QUAD(FUN , A,B) can 
be sent as an argument to the function quad using two 
approaches i.e. FUN can be specified as: 

An inline object: 

F = inline(T./(x. A 3-2*x-5)'); 

Q = quad(F,0,2); 

A function handle: 

Q = quad(@myfun,0,2); 
where myfun.m is an M-file: 
function y = myfun(x) 
y = l./(x. A 3-2*x-5); 


Type in the Command window to demonstrate an inline object 

» F = inline(T./(x. A 3-2*x-5)'); 

» Q = quad(F,0,2) 

Q = -0.4605 


Or Type in the Command window to demonstrate a function 
handle: 

» Q = quad(@myfun,0,2) 

Q = -0.4605 


B. QUADL 

The differences between the built-in function QUADL and 
recursive adaptive QUAD is that it uses high order 
Lobatto quadrature and the function QUAD may be more 
efficient with low accuracies or nonsmooth integrands . 
Further QUADL can be executed similary as QUAD for FUN 
can be specified as inline or as a function handle. 
Example 2.5 Approximate the integral _L ^ _^_ = ax by 
using quadL function in Matlab 

Type in the Command window to demonstrate an inline object 

» F = inhne(T./(x. A 3-2*x-5)'); 

» Q = quadl(F,0,2) 

Q = -0.4605 


Or Type in the Command window to demonstrate a function 
handle: 

» Q = quadl(@myfun,0,2) 

Q = -0.4605 


C.DBLQUAD 

DBLQUAD Numerically evaluate double integral. 
DBLQUAD(FUN,XMIN,XMAX,YMIN,YMAX) evaluates 
the double integral of FUN(X,Y) over the rectangle XMIN 
<= X <= XMAX, YMIN <= Y <= YMAX FUN(X,Y) should 
accept a vector X and a scalar Y and return a vector of values 
of the integrand . 

DBLQUAD(FUN, XMIN, XMAX, YMIN, YMAX, TOL) 
uses a tolerance TOL instead of the default, which is l.e-6 . 

DBLQUAD(FUN, XMIN, XMAX, YMIN, YMAX, TOL, @ 
QUADL) 

uses quadrature function QUADL instead of the default 
QUAD FUN can be an inline object or a function handle 

Example 2.6 Approximate the integral 

C! rtr * s m(x) -f x * cDs(y)}i2y }dx by 
using dblquad function in Matlab 

Type in the Command window to demonstrate an inline object 

» F = inhne('y*sin(x)+x*cos(y)'); 

»Q= dblquad(F, pi, 2*pi, 0, pi) 

Q = -9.8696 


Or Type in the Command window to demonstrate a function 
handle: 

»Q= dblquad(@integrnd, pi, 2*pi, 0, pi 
Q =- -9.8696 

Observe that integrnd.m is an M-file: 
function f = integrnd(x, y ) 
f = y*sin(x)+x*cos(x); 


D. TRIPLEQUAD 

TRIPLEQUAD Numerically evaluate triple integral . 

TRIPLEQUAD(FUN, XMIN, XMAX, YMIN, YMAX, ZMIN, 
ZMAX) evaluates the triple integral of FUN(X,Y,Z) over the 
three dimensional rectangular region XMIN <= X <= 
XMAX, YMIN <= Y <= YMAX, ZMIN <= Z <= ZMAX 
FUN(X,Y,Z) should accept a vector X and scalar Y and 
Z and return a vector of values of the integrand. 
TRIPLEQUAD(FUN, XMIN, XMAX, YMIN, YMAX, ZMIN, 
ZMAX, TOL) uses a tolerance TOL 
instead of the default, which is l.e-6 
Example 2.7 
Approximate the integral 

jyi J 0 { J_i (y * sin(x) cos(y))dz }dy] dx 

by using triplequad function in Matlab 


Type in the Command window to demonstrate an inline object 

» F = inhne('y*sin(x)+z*cos(y)'); 

» Q = triplequad( F, 0, pi, 0, 1, -1, 1) 

Q = 2.0000 


Or Type in the Command window to demonstrate a function 
handle: 

» Q = triplequad(@integrnd, 0, pi, 0, 1, -1, 1) 
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Q =- 2.0000 

Observe that integrnd.m is an M-file: 
function f = integrnd(x, y, z) 
f = y*sin(x)+z*cos(x); 


IV. MALAB SOFTWARE METHODS & ALGORITHMS 
FOR NUMERICAL INTEGRATION 

These techniques are a generalization of a small low-order 
degree formula. The main interval is piece wisely divided 
into small sub-intervals and the required rule is applied on 
each ones. If we apply Simpson's rule on each subinterval it 
is called Simpson’s composite rule as shown by Theorem 
(4.2) while Trapezoidal composite rule by the following 
Theorem (4.1) 

A. Trapezoidal Rule 

The composite Trapezoidal rule is given without proof in 
Theorem 4.1 

Theorem 4.1 Trapezoidal composite rule 
if f e(J 2 [a, b] , there exists a jU E \d , b\ for which 
Trapezoidal composite rule over n subintervals of 
{(J, b\ can be expressed with the error term as 

\ b a f(x)dx = ^[f(a) + 

2 n i l f{ Xj )+fm 

j = i 




Where &=X() < X\ <X2 <X n -l < Xyi =b > 

h=(b-a)/n, and 
For each j=0,l,2,....,n 

Example 2.7 Here , We write a Matlab program to 
approximate dx 

using the Trapezoidal composite rule given by Eqn.(4.1).The 
program is in Fig(4.1) 

gives the exact value , the approximated value and the 
approximated Error by printing values of Ie, Ir and Error 
respectively 


\ h a f(x)dx = l[f(a) + 2 m i l f(X2j) 


+ 4 I f(X 2 j-l) + m\ 
7=1 


( a-b)h ^ 
180 


/ (4) (/0 


( 4 . 2 ) 


Where a = Xo < X\ <X 2 <X2m-l <X2m 

=b , h=(b-a)/2m, and j=0,l,2,3,....,2m 


Example 2.8 

We compute £^dx using the 

J l.l 


Simpson’s composite rule given by Eqn.(4.2).The program 
in Fig(4.2) gives the exact value , the approximated value 
and the approximated Error by printing the values of Ie, Ir 
and Error respectively. Observe that Simpson’s rule in 
Example 2.8 uses seven points because We must have 
the number of points to be even and one must be cautious 
about the factors 2&4 in theEqn.(4.2). This why some people 
prefer to apply the trapezoidal rule in Eqn.(4.1) instead of 
Simpson’s rule. 


C. Gaussian quadrature 

All the Newton-Cotes formulas or the formulas that we have 
been given so farrequire that the values of the function whose 
integral is to be approximated be known at evenly spaced 
points, which might be the expected situation if tabulated data 
for the function was being used. If the function is given 
explicitly, however, the points of evaluating the function 
could be chosen in another manner, which leads to increase 
the accuracy of approximation. 

Gaussian quadrature it chooses the points values for 

X\ >X2 ? Xn — 1 ’ Xn 

in the interval [a ,b ]and the constants 

Cl C2 >Cn- 1 ’ Cn 

in an optimal manner to minimize the error obtained in 
performing the approximation given by Eqn.(4.3) 

lf(x)dx*Y,Cjf(xj) ( 4 - 3 ) 

a ;=1 


B. Simpson ’s Rule 

Theorem 4.2 Simpson’s composite rule If 

/ e (J \d,b\ , there exists a JU E:\CL ,b\ for 
which Simpson’s composite rule over n=2m 
subintervals of \(l,b\ can be expressed with the 
error term as 


Using the Legendre polynomials and their corresponding 
roots , it can be shown quadrature rule is exact for any 
polynomial P(x) ( and has degree of precision at least 
2n-l)given by 
Eqn.(4.4) . 

1 n 

\p(x)dx = T c jp( X j) (4.4) 
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The roots of Legendre polynomials are the abscissa points 

X\ . X2 . ••••> Xn-l . Xn and the 

coefficients C\>C2 > •• > Cft— 1> C 77 • both 
are given in Table 4.1 below 

Table 4.1 lists the values for these coefficients and 
abscissa points for n=2,3,4. Other can be found in 
Stroud and Secrest[18] or elsewhere . 

Since the simple linear transformation 
t=[l/(b-a)](2x-a-b) will translate any interval [a, b] 
into [-1, 1] provided b>a , the Legendre polynomials 
Eqn.(4.4) can be used to approximate 

b n 

Sf(x)dx= Z j f 

a 7=1 v ^ z (4.5) 

for any function that can be evaluated at the required points 

Example 2.9 Approximate the integral 

Jl.5 g-x^dx 

using Gaussian Quatrature 

rules with n=2 and n=3 .The exact value to seven decimal 
places is 0.1093643 


(b — a)tb + a 


(b - a) 


-dt 


Table 4.1 shows the coefficients and points for Gaussian rules 
for n=2,3&4 


n 

Roots 

Coefficients 

2 

0.5773502692 

1.0000000000 


-0.5773502692 

1.0000000000 

3 

0.7745966692 

0.5555555556 

0.0000000000 

0.8888888889 


- 0.7745966692 

0.5555555556 

4 

0.8611363116 

0.3478548541 

0.3399810436 

0.6521451549 


- 0.3399810436 

0.6521451549 


0.8611363116 

0.3478548541 


% Example 2.7 Integrate nsing the 
% Composite Trapezoidal Rule 
% In Mat lab command window 
% a= l . 1 ; 

% b=l . 6 ; 

% n =5 ; 

% syms x: 

% f=inline { r exp {x) 1 ] ; 

% Ie=compTrapezoidal (f r a r b r n] 

function [Ie r Ir f Error] =compTrapezoidal (f , a r b ,n] 
h= {b-a) /n; 
x=a:h:b: 
snm=0 ; 
for i=2:n 

snm=snm+f eval { f , x ( i ) ) ; 
end 

% Ie the approximate Integral 
Ie=(h/2) *{feval{f,a]+feval{f r b)+2*sum) ; 

% Ir the exact value of Integral 
Ir=int{ r exp{x) ' ,a r b) ; 

% The absolute Actual 
% Error = abs {Appoximation - Exact) 

Error = abs(Ie-Ir) ; 


» a=l.l; 

» 1 = 1 . 6 ; 

» n =5 ; 

» syms x; 

» f=inliiie("exp(x)") ; 

» 

I e=compTrap ezoi dal(f : a : b ,n) 
Ie = 1.9505 
Ir = exp(8/5)-exp(l 1/10) 


Fig. (4.1) The Composite Trapezoidal Rule in file 
compTrapezoidal.m & its command window for running it. 


% 4. 3 Integrate nsing the Composite Simpson Rule 
% In Matlah command window 
% a=l . 1 ; 

% b=l . 7 ; 

% n = 3 ; % n is even i.e. n=2*m divisions in the formula 
% syms x; 

% f=inline { r exp {x) ' } ; 

% [Ie r Ir r Error] =compSimpson(f r a f b f n) 


function [ Ie , Ir r Error] =compSimpson ( f f a F b , n) 


h={b-a]/{2*n) ; 
x=a:h:b; 

sum=feval(f r a) ; 
for i=2 : 2 : 2*n 


Fig ,(4.2) (a) The Composite Simpson Rule in 
file compSimpson.m 


sum=sum+4*feval { f f x { i ] ) +2*feval ( f f x { 1+1) } ; 

end 

sum=sum-feval{f r b) ; 

% Ie he approximate Integral Ie 
Ie = {h/3)*sum; 

% Ir the exact value of Integral 
Ir=int{ r exp{x) ' ,a,b) ; 

% The absolute Actual Error = abs {Appoximation - Exact) 
Error = abs(Ie-Ir) ; 


% 4.3 Integrate using the Commposite Simpson Rule 
% In Mat lab command window 
% a=l . 1 ; 

% b=l .7; 

% n = 3 ; % n is even i.e. n=2*m divisions in the formula 
% syms x ; 

% f=inline { r exp {x} 1 } ; 

% |Ie r Ir r Error] =compSimpson{f r a,b , r n) 


function [Ie r Ir , Error] =compSimpson{f , a r b r n] 
h={b-a) / (2*n) ; 
x=a :h:b; 

sum=feval (f ,a) ; 
for i=2 : 2 : 2*n 


Fig .(4 .2) (a) The Composite Simpson Rule in 
file compSimpson.m 


sum=sum+4+feval (f r x(i} ) +2*feval (f f x(i+i) ) ; 

end 

sum= sum- f eval {f r b) ; 

% Ie he approximate Integral Ie 
Ie = (h/3)*sum: 

% Ir the exact value of Integral 
Ir=int { P exp {x) 1 ,a,b] / 

% The absolute Actual Error = abs {Appoximation - Exact) 
Error = abs(Ie-Ir); 
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% Example 4.3(a) Integration using 
% Guassian Quatrature rules 
% In Matlab command window 
% syms x; 

% f=inline( l exp(-x A 2) 1 ); 

% c=[l. 0000000000 1.0000000000]; 
% x=[0.5773502692 4) 5 773502692]; 
% a=l; b=1.5 ; 

% el=2 ; 

% Ie=quassian(f : c : x : a : b : n) 

functi on I e=quas siati(f : c ; x ; a ; b : n) 

sum=0; 

for j=l:n 

t=((b-a)*x(j >fa+b)/2 ; 
smn=smn+c(j )*feval(f ; t)*'(b-a)/2 ; 
end 

Ie=sum; 


» syms x; 

» f=iiiline('exp(-x A 2y); 

» c=[ 1.0000000000 1.0000000000] 
» x=[0.5 7 73502692 4) 5 773502692]; 
» a=l; 1=1.5; 

» n=2 ; 

» Ie^quassian(f : c : x : a : b = n) 

Ie = 0.1094 


Fig.(4.3(a)) Integration using 
Guassian Quatrature rules in the 
file Quassian.m 


» syms x; 

» f=qnlme{exp(-x A 2)"); 
» a=l; b=l_5 : 


A. Gismalla’s Rules 

Here , We are cited two rules from Gismalla[ 7] , where the 
first one is a fourth degree using seven points to integrate an 
integrand f(x,y) with weight function Vx on the rectangle 
region of integration 

£1 = { Gr, y ) : 0 < x < 1 and — 1 < y < 1} . 

The Rule is given by Eqn.(4.6 ) , where the 
abscissas x(j) & y(j) and the coefficients c(j) for j=l(l)7 are 
given inTable 4.2 . Similarly the second is a fifth degree rule 
using seven points . The Rule is by Eqn.(4.6), where the 
abscissas x(j) & y(j) and the coefficients c(j) for j= 1(1)7 are 
given in Table 4.3 .The Matlab Program for Gismalla fourth 
degree Rule is given in by the file GismallaRule4.m in 
Fig. (4.4) & for the fifth drgree Rule is by GismallaRule5.m in 
Fig. (4. 5) 

l i 7 

/ Jvr rtx. may * £ «w(*©.rW) («) 

D -1 J =1 


» syms x; 

» f=4nlme( , exp(-x A 2)"); 

» a=l;b=1.5; 

» n=2 ; 

» P e : Ir : Error]=qu as sianTabl e(f : a. : b : n) 

Ie = 0.1094 

Ir = 1 fl * erf (3/2)*pi A ( 1 fly 1 fl * erf ( 1 )*pr \ 1 /2) 
Error = 3941559804514209/36028797018963968 
- 1 fl * erf (3/2)*pi A ( 1 /2)+ 1 fl * erf ( 1 )*pr \ 1 12 ) 


Fig.(4.3(b)) The command window for the file 
quassianTable.m with the Gauss Table not passed as 
parameters as in Fig.(4.3(b)) below 


% Example 4 . 3 (b) Integration using Guassian Quatrature rules 

% In Matlab command window 


% syms x ; 



% f=inline ( ' exp (-x A 2) ' ) ; 


% a=l ; b=l . 5 ; 



% n=2 ; % Guassian-Table is given and n runs 

from 2 to 5 

% [Ie , Ir , Error] 

=quassianTable (f ,a,b,n) 


function [Ie.Ir.Error]=quassianT ableff.a.b.n) 


C=[l. 0000000000 

0.5555555556 0.3478548451 

0.2369268850 

1.0000000000 

0.8888888889 0.6521451549 

0.4786286705 

0.0000000000 

0.5555555556 0.6521451549 

0.5688888889 

0.0000000000 

0.0000000000 0.3478548451 

0.4786286705 

0.0000000000 

0.0000000000 0.0000000000 

0.2369268850] ; 

X— [ 0.5773502692 

0.7745966692 0.8611363116 

0.9061798459 

-0.5773502692 

0.0000000000 0.3399810436 

0.5384693101 

0.0000000000 

-0.7745966692 -0.3399810436 

0.0000000000 

0.0000000000 

0.0000000000 -0.8611363116 

-0.5384693101 

0.0000000000 

0.0000000000 0.0000000000 

-0.9061798459] ; 

sum=0; 
for j=l:n 



t=((b-a)*x(j,n-l)+a+b)/2 ; 
sum=sum+c(j.n-l)*feval(f.t)*(b-a)/2; 


end 

Ie=sum; 

Ir=int( , exp(-x A 2)',a 
Error = abs(Ie-Ir); 

>,b); 



Fig.(4.3(b)) Guassian Quatrature rules in the file 
quassianTable.m 


V . Cub ature ’ s Rules for 2-dimentional Integration 

Cubature formulae are quadrature formulae that having 
the minimum points to attain the required degree of accuracy 
when evaluating a polynomial as an integrand .In a series of 
papers rules for constructing cubature formulae have been 
established as in STRUOD [4], SCHIMD [17],RADON[14] 
andGISMALLA[6-8] . 


B. Radon ’s Rule 

Radon[ 14 ] has established a fifth degree formula where the 
region of the integration is the square with the unity weight 


function w(x)=l and the formula is given by Eqn.( 4.7) 

% Integration using GismallaRule for Double Integration on a rectangle . 
% This Quatrature rule of fourth degree to evaluate an intgrand 
% x A 0.5*f{x ? y) on the regin R={(x 7 y} : 0=< x =<1 and - 1=< y =<1 } 

% The integrand must be called without the weight function sqrt{x) 

% as an inline or function handle object of the form f(x f y) only. 

% In Matlab command window 

% syms s; Fig{44) The fourth degree GismallaRule! with 

% syms t; Matlab Program 

% fHnlinef 1 exp(-s*t) T )' GhmaDaRulefm & its Command Window 

% a=0; b=l ; 

% c— l;d=l ; 

% n=7; % Gismalla-Tabk is given for n = 1 
% [Ie]= GismallaRule4{f,a 7 b f c, d ,n) 


function [Ie]=GismallaRule4{f.ib.c.d.n) 
x=[ 0.0607124836 0.0000000000 0.0000000000 
0.3323846207 0.5329336163 0.0000000000 
0.8943391109 
0.8618614683 
0.8618614683 
0.3381385317 
0.3381385317 


0.1994954883 
0.1851851852 
0.1851851852 
0.1851851852 
0.1851851852 
TotalSum=0; 
for j=l:n 

9Q)=((t>-a)*sQ a 2)4a); 
t(j)=«d-c)*x(i,3)+^d)/2; 
s™G)= s(j , l)*feval(f , s(j) , t(j) ) ; 
TotalSum=TotalSum - sum(j); 

End 

Ie={d-c)*0.5*TotaiSum ; 


0.7745966692 

-.7745966692 

0.7745966692 

-.7745966692 


]; 


» syms s; 

» iymi t: 

» f=mlme{ expC-sh) 1 ); 

» 3f 0; b=l ; 

» c=-l;d=l ; 

» n =7; 

» [Ie]= Gi3maMule4(£ib. c. d .n) 
» Ie= 1.43 IS 
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Table 4.2 The abscissas x(j) & y(j) and the coefficients c(j) 
for j= 1(1)7 for the fourth degree 


j 

c0> 

®ti) 

jtD 

L 

0.0607124336 

0.0000000000 

0.0000000000 

2 

0-3323846207 

0.5329336163 

0.0000000000 

3 

0.199495 4883 

0.3943391109 

0 . oooooooooo 

4 

1851 851 852 

0.8618614683 

0-7745966692 

5 

0.1851851852 

0.3613614633 

0. 7745966692 

■6 

0.1851851852 

0.3381385317 

O- 7745966692 

7 

0-1351351352 

0.3381385317 

0.7745966692 


Table 4.3 The abscissas x(j) & y(j) and the coefficients c(j) 
for j=l(l)7 for the fifth degree 


j 




1 

9.391175153$ 

9.56$61$5251 

9. 9999999999 

2 

&.1305$3?632 

9-9371936266 

9. 9999999999 

3 

9. 979$336756 

9.9596574637 

9. 9999999999 

4 

9.154197776$ 

9.2399491979 

9-7745966692 

5 

9.1541977766 

9-2S99491979 

9-7745966692 

6 

9.21 £1 72593 b 

9. $211619132 

9-7745966692 

7 

9.2161725936 

9^ $211 619132 

9.7745966692 


% Integration using Gismalla Rule for Double Integration on a rectangle . 
% This Quadrature rule of fifth degree to evaluate an intgrand 
% x A Q.5*f(x,y) on the regin R={(x,y} : 0=< x =<1 and - 1=< y =<1} 

% The integrand must be called without the weight function sqrt{x) 

% as an inline or ftmction handle object of the form f(x ? y) only. 

% In Matlab command window 
% wins s; 

% symst; 

% fHElineC exp(-s*t)^; 

% a=€; b=l ; 

% c-l:d=l ; 

% n=7; % Gismalla-Table is given for n = 7 
% [Ie]= GismallaRule5(f,a,b, c : dm) 


function [Ie]= Gi smallaRule5{f,a.b.c.d,n) 
x=[ 0.3911 751 538 0.5686185251 0.0000000000 
0.1305837632 0.9871086266 0.0000000000 
0.0708336756 0.0596574637 0.0000000000 
0.1541977768 0.2899491979 0.7745966692 
0.1541977768 0.2899491979 -.7745966692 
0.2161725936 0.8211619132 0.7745966692 
0.2161725936 0.8211619132 -.7745966692 ]: 


Total Sum=0: 
for j=l :n 

s(j)H[{b-a)*x(j,2)-i-a ) ; 
tOKCdc) *x(j 3 3)+c+d)/2; 
sum(j)= x(j , l)*feval(f 3 <j) , t(j) ) ; 
TotalSum=TotalSum +sum(j); 

End 

Ie=(d-c) Ha 0.5 ! *‘TotalSum : 


» syms s; 

» syms t; 

» f=inline(* a>3(0j # pi’ f (3+t))'); 

» a=0; b=l ; 

» c=-l; d=l ; 

» n=7- 

» [Ie]= Gi3ma]laRuIe5(f.ib. c. d .n) 
» Xe= 1.4316 


Fig(4.5) The fifth degree GismallaRule5 with Matlab 
Program 

GismallaRule5.m & its Command Window 


// 

-l -l 


f&GyOdxdjr ftf 

j = l 


(4.7) 


Where the abscissa and weight coefficient are in Table 4.4 
and the Matlab Program for RadonRule.m is in the Fig. (4. 6). 
As in Gismalla[ 12 ] , the reader can test these the three 
programs GismallaRule4.m, GismallaRule5.m and Radon 
Rule 5.m for the three given integrals below with their exact 
values 


1 L 

L = J J i/x€Osf^(x+y) Jdxdyffi 0.45533 (43). 

i -l ^ ■ 



Vx e-^’dxd y w 1.4219649 6 (4.9) 


o -1 

1 1 



0.2956196 (410 


% Integration using RadonRnle for Double Integration on a square . 

% This Quatrature rule of fifth degree to evaluate an intgrand 
% f(x^y) on the regin R= {(x,.y } : -1 =< x =<1 and -1 =< y =<1 } 

% The integrand must be called with the unity weight function 
% as an inline or function handle obj ect of the fomifl(x : y) . 

% In Matlab command window 

% syms s; FigU-frl Tht fifth degree RadonRulti Tiith Matiab Program 

% symst; 

% fNnline(sqn(s)*exp{-s*ty); 

%a=0;b=l ; 

% c=-l; d=l ; 

% n=7 ; % Radon-Table is given for n = 7 
% Pe]= RadonRuIe5(f ajb,c, d ,n) 

function [Ie]= RadonRule5(f,a : b 1 .'C,d : n) 
x=[ S/7 0 0 

20/63 0 (14/15y0.5 

20/63 0 -(14/1 5)^0 .5 

5/9 (3/5> ,r, 0.5 (l/3y'0.5 

5/9 -<3/5>XJ.5 (l/3> ,r, 0.5 

5/9 (3/5y0.5 -(l/3yOJ5 

5/9 -(3/5)X) _5 <l/3y0.5 ]; 

TotalSum=0; 
forj=l:n 

s(j )=((b -a ) * x(j .2 j+a+b 'V2 ; 
t{jMd-cyx(] : 3>fc+dy2; 
sum(j )=x(j = 1 )* fev al(f : s(j ) ,t(j ) ) ; 

T ot alSum=T ot alSum- sum(j ); 
end 

TotalSum={b-a)*(d-c)*TotalSum 4; 

Ie=TotalSum; 


» syms s; 

» symst; 

» f=inline{ r sqrt{s) 5t exp(-s H: t) f ); 

» a=0;b=l ; 

» c=-l; d=l ; 

» n=7; 

» [Ie]=RadonRule5(fm43,.c. d.n) 
» Ie=l .43 563 £8622271 S 


Table 4.4 The abscissas x(j) & y(j) and the coefficients c(j) 
for j=l(l)7 for RadonRule5 in Eqn.(4.7) with Matlab 


Program RadonRule5.m in Fig(4.6) 


j 

■dj) 


7<ji 

1 

8/7 

0 

0 

Ji 

20/63 

0 

(14/15) *0-5 

3 

20.63 

0 

(14/15) *0.5 

4 

5/9 

(3/5) ^0.5 

(1/3) *0 .5 

5 

5/9 

-(3/5) *0.5 

- (1/3) .5 

6 

5/9 

(3/5) '-0 .5 

(1/3) '-0 .5 

7 

5/9 

-(3/5) *0.5 

- (1/3) .5 


VI. Levin’s Transform Rule for higher dimensional 
Integration 

Levin’s U-transform Method [12] has been shown and 
used to efficiently compute certain types of multiple integrals 
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to a high decimal places of accuracy using FORTARN 
program languages . The Computing Machine was the main 
FRAME computer applied with a FULL machine accuracy to 
get high decimal places of accuracy. The Levin’s Method has 
a drawback; it fails to compute certain types of series. 

Instead of FORTARN program language written for 
Levin’s Method which cannot be available now or after , We 
write it here instead using Matlab program. In contrast for 
using FULL machine accuracy when using FORT AN 
language, the command format long can be used instead in 
the Matlab program to get high decimal places of accuracy . 
Levin’s U-transform is defined in Eqn.(4.1 1) as 
^2 -k+ 1 0) — 


C k f 1 )fj+l) Zk ' i c4 j 7T^ 


C zk p)(i+i) 2k - 1 C- 




w 


(4.11) 


Table 4.5 LEVIN TRANSFORM SOI FOR G(00G) 


k 

The Sntn S k 

LEVIN TRANSFORM U lmt+ . 

0 

1.00000000 

1.4000720 

1 

1.12500000 

1.3931052 

■> 

1.17773437 

1.39320476 

3 

1.20825195 

1.3932039225 

4 

1.22869634 

1.39320392968 

p 

1.24360030 


6 

1.25508015 


7 

1.26427156 


8 

1.27184504 


9 

1,27822511 

G{000)= 1.39320392968 

10 

1.28369522 


11 

1,28845279 



where is the partial sum of n terms of the convergent series 
of positive terms as in Eqn.(4.12). 


S = (4.12) 

1 

Here , our aim is to apply Levin’s U-transform Matlab 
program to evaluate the three multiple integrals considered in 
[12] using FORTARAN language . The three Lattice Green 
functions are 


G(000) = — 



dx dy dz 
cos x cos y cos z 


(4.13] 


1 r* [" r* cos 2.x- dxdydz 

G(100)= — z 

3F J Jq Jjj Jq 1 — COE X COE y cos z 


(4,14) 


g(//o)=4 r r i 

n Jfl Jjj 


cos2xcos 2y dx dy dz 
1 - cos jc cosy cosz 



(4,15) 


Since cos(2x)=cos 2 (x)-l and 

cos(2y)=cos 2 (y)-l , it follows that 
G(I00) = 21 A - (7(000 ) (4.16) 

G(110) = 41 j -4I 4 + (7(000] (4,17) 


u 


where 

J .-rr co^xdxdydz 

7Z-' ® ® ® J -CDE„¥CD.Ey CDE-£T 


(4J3) 


i 5 




cos 2 x cos 2 x dx dy dz 
1 — cos x cos y cos z 


(4.19) 


Now by expanding the integrand in G(000) , I 4 and /j in 
Eqn.(4.13) ,Eqn.(4.18) and Eqn.(1.19) respectively and 
applying Wallis’ formula , We get the integrals as 

■e 

g(ooq) = Z 4 (4.20) 

n=0 

e 

= C4.2f) 

Is — £n=a a n+i (4.22) 


Table 4 .6 LEVIN TRANSFORM SUM FOR l* 
k The- Sum S k LEVIN TRANSFORM U 2 ..i ct .± 


0 0.500000000 

1 0,593 750000 

2 0,637695312 

3 0.664398193 

4 0,682798147 

5 0.696460112 

6 0.707119970 

7 0,715736914 

8 0.722889651 

9 0.728950713 

10 0,734172180 

11 0.738 731524 

12 0,742 757787 

13 0,746347348 


0.740888952 

0.832874813 

0,841755935 

0.842047393 

0,842052522 

0.842052578 


l + =0842052578 
G{100)=0 290901226 


Table 4 .7 LEVIN TRANSFORM 1 SUM FOR l z 
k The Sum S k LET-IN TRANSFORM 


0 0.250000000 

1 0.320312500 

2 0.356933593 

3 0.380298614 

4 0.396858572 

5 0.409382041 

6 0.419280480 

7 0.427358865 

8 0434114228 

9 0.439872237 

10 0.444856364 

11 0.449225735 

12 0.453097143 

13 0.456558504 


0.380674380 

0.533267522 

0.550563530 

0.551141114 

0.551151238 

0.551151349 


l= = 0551151349 
G^IOO) =0.22 9599014 
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% Integration using Levin Transform for Triple Integration on cubic. 

% This Technique is a series Technique for which the integral is expressed 
% as a series FIRST and then LEVIN is applied. The general term for the 
% series can be expressed as an inline function or a handle object with 
% the initial term submitted to the program in advanced to generate the 
% other terms with the number of terms n to be taken for the sum. 

% The function fin LevinTranfSum(f s n s a0) is a ratio to generate other terms . 
% In Matlab command window 
% syms s; 

% f=inlineC ((2 *s- 1 )/(2 *s)) A 3*); 

% aO=l : 

% n=5; 


» format long 
»syms s; 

»f=inlineC ((2 * s- 1 >'(2 * s^S'); 
»aO=l : 


»n=5; 

» LevinTranfSum(f : n s a0) 


% LevinTranfSum(f ; n 5 a0) 
function LevinTranfSum(f : n 5 a0) 
global UT ; 
for k=l :n 

[S : UT]=LevinTransform(f : k ,a0): 

F(k)=UT; 
end 

dispC The Sum of the Series having 2*n+2 terms') 
disp([ S']); 

dispC The Stun of the Series using LEVIN TRANSFORM using 2* n+2 terms') 
disp([F]); 


The Command Window for G(000) and 
its results are in Table (4.5) 


function [ S , UT]=L evinTrans f orm(f : k s a0) 
a(l)=aO : 

S(l)=a(l); 

C(l)= 1; 

TotalSumDen(l)=l ; 

TotalSumNiun( 1 )= 1 ; 


> > format long 
» syms s; 

» f=inlineC ((2*s4>'(2*s)) A 2*((2*s+l)/(2*s+2))'); 
» a0=0.5 ; 

»n=6; 

» LevinTranfSum(f : n s a0) 


The Command Window for I 4 and 
its results are in Table (4.6) 


for j=l:2*k+l 

a(j + 1 )=f eval(f j )*a(j ); 

S(j+l)=S(j)+a(j+l): 

C(j+lH2*k+2-j)*C(jy(j); 

TotalSumDen(j+l)=TotalSumDen0 + (-l) A j*C(j+l)*(j+l) A (2*k-l)*S(j+l)/a(j+l): 
TotalSumNum(j+l)=TotalSumNum(j) + (4)q*C(j+l)*(j+l)N2nc-iya(j+l); 
end 


UT= TotalSumDen(2*k+2)/TotalSumNum(2*k+2); 


Fig(4.7) Matlab Program LevinTranfSum.m with its Two 
Command Window 

for G(000) and [4 . The Output are in Table 4.5 &Table 4.6 


where the coefficients terms a’s are given by 


1.3.5 ... (2n - 1) 
2.4,6... (210 


a c = 1 (4.23) 


Now the Matlab Program to integrate G(000) , I 4 and /j in 
Eqn.(4.20) , Eqn. (4.21) and Eqn.(4.22) respectively is given in 
Fig(4.7). The output 

results from the command window program for G(000) , 1 4 
and ly are given in Table 4.5 , Table 4.6 and Table 4.7 
respectively.. 

Observe that to compute the integral I 5 , 

We need to replace the generating ratio function 

and the initial term aO by 

f=inline(' (( 2 *s-l)/( 2 *s))*(( 2 *s+l)/( 2 *s+ 2 )) A 2 '); 

and a0=0.25 ; in the command window program for 

LevinTranfSum.m given in Fig. (4.7) . 

Hence the values for the integral G(100) in Eqn.(4.16) 
and G(110) in Eqn.(4.17) can be 
evaluated up to eight decimal places of 
accuracy as in Eqn.(4.24) where 
G(1 10)=0. 229599014 

and G( 1 00)=0 .2909 1 226 (4.24) 


VII. Conclusion 


The reader must know all types of Programs Built-in as 
ROUTINES SOFTWARE 


are inflexible programs to suit and solve any particular types 
of problems while the others are flexible programs. This can 
be seen if someone attempts to run the routine DBLQUAD on 
MALAB for the integral 

Ij in Eqn. (4.1 S) , I 2 m Eqn. (4. 19) 
or I_; in Eqn (4,20) an ERROR will be occurred. This 
because DBLQUAD on MATLAB for interval [0,1] which 
runs on variable x will be transformed for a different one by 
the inside QUAD quadrature used by DBLQUAD . Even if 
one doesn’t submit the parameters a =0 and b=l in the 
MATLAB program GismallRule4.m or GismaleRule5.m an 
ERROR will be occurred due to the fact that any 
transformation to the interval [ 0 , 1 ] will effect to translate the 
corresponding weight function y x"~ given in Eqn. (4,6) to a 
different weight function and so the abscissas’ and 
coefficients will be different from their corresponding in the 
given rule in Eqn. (4. 6 ) 

However, the program RadonRule5.m can run these 
integrals efficiently without any errors provided the integrand 
function must be submitted as 

Vx~ fix, y) exactly as with these 
integrands given by Eqn.(4.18) , Eqn.(19) and Eqn.(20). 

Levin’s Transform in Eqn.(4.1 1) written as functions 
or subroutines using FORTRAN languages , even on 
main-frames computers will compute the integrals G(000) , I 4 
and ly in Eqn.(4.20) ,Eqn.(4.21) and Eqn.(4.22) respectively 
only to five or sixth decimal places at most. In Gismalla[12] 
these integrals were computed to a very high decimal places 
up to 12 decimals places using the same Levin’s Transform in 
Eqn.(4.11) . The cost is very very too expensive , the 

technique Levin’s Transform must be phrased and 
unexpressed as function or procedures each times when it is 
called with SOME SPECIAL COMMAND WITTEN ON 
THE FIRST TOP LINES to generate the FULL MACHINE 
ACCRACCY which are unavailable unless given by the 
advisory of the main-frame 
computers. The computational remarks with 
Levin’s Transform as a function written in FORTRAN 
language can found in gismalla[ 12 ]. 

On the contrary, the LevinTrasfSum.m given in Fig.(4.7) 
computes these integrals neatly 

up to eight digits of accuracy exactly without a great 
complexity and efforts using the symbolic languages 
MATLAB and even the program is SHORT. 
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